Micom Basic 1995 October/CD [BM9510].bin/programs/lotus/lotus001.dsk/MACROS/FLWORG.SMM

INI File | 1994-08-11 | 33.7 KB | 2,007 lines

[ver]
    4
[sty]
    jmacro.sty
[files]
[charset]
    82
    SHIFTJIS (Windows)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[fldnames]
    ╠¿░┘─▐1
    ╠¿░┘─▐2
    ╠¿░┘─▐3
    ╠¿░┘─▐4
    ╠¿░┘─▐5
    ╠¿░┘─▐6
    ╠¿░┘─▐7
    ╠¿░┘─▐8
[desc]
    ╠╪░╫▌╜é╠ægÉDÉ}é≡▒╨╠▀█ò╢ÅæÆåé╔ì∞ɼ




    775427565
    56
    731818190
    1965
    7
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    3
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Times New Roman
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        16
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        3

        0
        1
        1
        0
        16
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    7
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        4

        0
        1
        1
        0
        16
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Outline5
    8
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        5

        0
        1
        1
        0
        16
        0
        1
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline5
    0
    0
[l1]
    0
[pg]
    3
    55 0 51 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    108 0 57 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    166 0 46 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#284,9071>'declares & defines

@Outline2@'string defines, to be localized

@Outline3@<:f200,2Times New Roman,255,0,0>define MyAppName    "Ami Pro Org Chart"

@Outline3@<:f200,2Times New Roman,255,0,0>define apptitle        <:f><:f200,2Times New Roman,255,0,0>"<:f200,1û╛Æ⌐,255,0,0>âìü[â^âX
âtâèü[âëâôâX<:f><:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define err_cantfindapp        <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>╠╪░╫▌╜é¬î⌐é┬é⌐éΦé▄é╣é±üB<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define e<:f200,2Times New Roman,255,0,0>rr_cantlaunchapp    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>╠╪░╫▌╜é≡ïNô«é┼é½é▄é╣é±üB<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define err_cantuseframe    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>ægÉDÉ}é┼é═üA<:f><:f200,1û╛Æ⌐,255,0,0>é▒é╠ÿgé≡<:f><:f200,1û╛Æ⌐,255,0,0>Ägéªé▄é╣é±üB<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define err_cantusearea<:f><:f200,2Times New Roman,255,0,0>        <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>ægÉDÉ}é┼é═üAé▒é╠ö═ê═é≡Ägéªé▄é╣é±üB<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define err_couldntrunorgchart    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>╠╪░╫▌╜é≡ïNô«é┼é½é╚éóé╜é▀üAægÉDÉ}é≡ì∞ɼé┼é½é▄é╣é±üB<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define FLW_WINDOWMENU    <:f><:f200,2Times New Roman,255,0,0>"<:f200,1û╛Æ⌐,255,0,0>│▓<:f><:f200,1û╛Æ⌐,255,0,0>▌─▐│(&W)<:f><:f200,2Times New Roman,255,0,0>"

@Outline3@<:f200,2Times New Roman,255,0,0>define usrctrl_cantpastespecial    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>ô\éΦòté»é┼é½é▄é╣é±üBò╢Åæé╠û{ò╢é≡╕╪»╕é╡é─é¡é╛é│éóüB<:f><:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define OrgCh<:f200,2Times New Roman,255,0,0>artEntryDlgText    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>ægÉDÉ}é╠ò╥ÅW<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define OrgChartGalleryDlgText    <:f><:f200,2Times New Roman,255,0,0>"<:f><:f200,1û╛Æ⌐,255,0,0>ægÉDÉ}é╠╖▐¼╫╪░<:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define DLG_GALLERY<:f>        <:f200,1û╛Æ⌐,255,0,0>"╖▐¼╫╪░"

@Outline3@<:f200,2Times New Roman,255,0,0>define DLG_CREATE    <:f,2Times New Roman,>    <:f200,1û╛Æ⌐,255,0,0>"ægÉDÉ}é╠ì∞ɼ"

@Outline3@<:f200,2Times New Roman,255,0,0>define DLG_STYLE<:f,2Times New Roman,>        <:f200,1û╛Æ⌐,255,0,0>"ægÉDÉ}é╠╜└▓┘<:f><:f200,1û╛Æ⌐,255,0,0>"

@Outline2@'string defines, not localized

@Outline3@Define LotusPal    "lsphwndpal"

@Outline3@define appclass    "flwapp"

@Outline3@define appmodule    "FLWMAIN"

@Outline3@define appname    "FLW"

@Outline3@define ERR_DIECLEANLY    -2

@Outline3@define FILE_ALREADYOPEN    1

@Outline3@define FILE_NOTOPEN        -1

@Outline3@define LotusAppSection    "Lotus Applications"

@Outline3@define LotusIniFile    "lotus.ini"

@Outline3@define orgfilename    "ONEORG.PRE"

@Outline3@define pasteformat    <:f200,2Times New Roman,0,0,0>"Windows <:f200,1û╛Æ⌐,0,0,0>╥└<:f200,2Times New Roman,0,0,0>"<:f>    '"Windows Metafile"

@Outline3@define salesmsgsmm    lotuspal.smm!salesmsg

@Outline2@'private functions

@Outline3@declare box2(hdlg, id, val)

@Outline3@declare done()

@Outline3@declare freeglobals()

@Outline3@declare GetChildHandle(parentclass, childclass);

@Outline3@declare h_LoadLotusApp(Name, Module);

@Outline3@declare hideami(rect)

@Outline3@declare insertdata(hdlg, id, val)

@Outline3@declare modframe()

@Outline3@declare MyPostMessage(hwnd, msg, wparam, lparam)    'DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@declare newnow()

@Outline3@declare onmenu(menu, item, casc)

@Outline3@declare openfile()

@Outline3@declare PeekTillClear(hwnd)

@Outline3@declare setpagelayout()

@Outline3@declare showami(rect)

@Outline3@declare winproc(hdlg, id, val)

@Outline3@define IsOKToRun(menuname)    GetInfo(217, 24, %1);

@Outline3@define MsgBox(msgtext)    Message(%1, myappname)

@Outline2@'api call defines

@Outline3@Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)

@Outline3@Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

@Outline3@Define GetActiveWindow() DllCall("user,GetActiveWindow,H")

@Outline3@Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)

@Outline3@Define Getfocus() DllCall("user,GetFocus,H")

@Outline3@define GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)

@Outline3@<:#240,9071>define GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)

@Outline3@<:#240,9071>define GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)

@Outline3@<:#480,9071>define GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

@Outline3@<:#240,9071>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)

@Outline3@<:#240,9071>define GetParent(hWnd) DllCall("user,GetParent,HH", %1)

@Outline3@<:#240,9071>define GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)

@Outline3@<:#240,9071>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)

@Outline3@<:#240,9071>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline3@<:#240,9071>Define GetWindowText(hwnd, lpsz, cbMax)    dllcall("user,GetWindowText,HHCH", %1, %2, %3)

@Outline3@<:#240,9071>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

@Outline3@<:#240,9071>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)

@Outline3@<:#240,9071>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)

@Outline3@<:#480,9071>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)        dllcall("user,PeekMessage,ANHHHH", %1, %2, %3, %4, %5)

@Outline3@<:#240,9071>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#480,9071>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

@Outline3@<:#480,9071>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)

@Outline3@<:#240,9071>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)

@Outline3@<:#240,9071>Define SetFocus() DllCall("user,SetFocus,HH",%1)

@Outline3@<:#480,9071>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)

@Outline3@<:#240,9071>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

@Outline2@<:#240,9071>'menu pick defines

@Outline3@<:#240,9071>define FLW_COPY        142

@Outline3@<:#240,9071>define FLW_CURVEDTEXT    307

@Outline3@<:#240,9071>define FLW_CURRENTPAGE    228

@Outline3@<:#240,9071>define FLW_EDITCLEAR    145

@Outline3@<:#240,9071>define FLW_INBW        269

@Outline3@<:#240,9071>define FLW_INCOLOR        270

@Outline3@<:#240,9071>define FLW_NEW        61

@Outline3@<:#240,9071>define FLW_NEWPAGE    241

@Outline3@<:#240,9071>define FLW_ORGCHART    5202

@Outline3@<:#240,9071>define FLW_OUTLINER    230

@Outline3@<:#240,9071>define FLW_PAGESORTER    229

@Outline3@<:#240,9071>define FLW_PASTE        144

@Outline3@<:#240,9071>define FLW_REMOVEPAGE    242

@Outline3@<:#240,9071>define FLW_SCREENSHOWRUN    481

@Outline3@<:#240,9071>define FLW_SELECTNONE    166

@Outline3@<:#240,9071>define FLW_SELECTALL    165

@Outline3@<:#240,9071>define FLW_SPEAKERNOTES    253

@Outline2@<:#240,9071>'api defines

@Outline3@<:#240,9071>Define GW_CHILD        5

@Outline3@<:#240,9071>Define GW_HWNDNEXT    2

@Outline3@<:#240,9071>define MF_BYPOSITION    0x0400

@Outline3@<:#240,9071>define NO_DUPS    0

@Outline3@<:#240,9071>define PM_NOREMOVE    0x0000

@Outline3@<:#240,9071>define SWP_NOMOVE        0x0002

@Outline3@<:#240,9071>define WM_COMMAND    0x0111

@Outline3@<:#240,9071>define WM_GETTEXT           0x000D

@Outline3@<:#240,9071>define WM_MDIMAXIMIZE    0x0225

@Outline3@<:#240,9071>Define WM_SETREDRAW            0x000B

@Function@<:#284,9071>function FLWorg()

@Outline2@<:#240,9071>ClipboardWrite("temporary text", 0)

@Outline2@<:#240,9071>if IsOKToRun(Paste) != 1

@Outline2@    message("<:f,1û╛Æ⌐,>î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±üB<:f>")

@Outline2@<:#240,9071>    exit function

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>if GetOpenFileCount() << 1

@Outline2@<:#240,9071>    exit function

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>LayoutMode()

@Outline2@<:#240,9071>If IsFrameSelected() and IsOKToRun(FontChange)

@Outline3@<:#240,9071>    msgbox(err_cantuseframe)

@Outline3@<:#240,9071>    Exit Function

@Outline3@<:#240,9071>Endif

@Outline2@<:#240,9071>onerror endit

@Outline2@<:#240,9071>oncancel endit

@Outline2@<:#240,9071>ignorekeyboard(2)

@Outline2@<:#240,9071>dim rect(4)

@Outline2@<:#240,9071>focusnow=GetFocus()

@Outline2@<:#240,9071>singlestep(0)

@Outline2@<:#240,9071>hFLW = h_LoadLotusApp(appname, appmodule);

@Outline2@<:#240,9071>'pause(002)

@Outline2@<:#240,9071>'singlestep(1)

@Outline2@<:#240,9071>if hFLW = 0

@Outline2@<:#240,9071>    return 0

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>rmac = getrunningmacrofile$()

@Outline2@<:#240,9071>'get handles to everything

@Outline3@<:#240,9071>hwndpro = findwindow("amiprownda", 0)

@Outline3@<:#240,9071>hIconBar = FindWindow("SmartIconBar",0)

@Outline3@<:#240,9071>' this will disable the lotuspal if it is available

@Outline3@<:#240,9071>AllocGlobalVar(LotusPal,1)

@Outline3@<:#240,9071>hLotusPal =  GetGlobalVar$(LotusPal)

@Outline3@<:#240,9071>If hLotusPal <;> 0

@Outline3@<:#240,9071>    EnableWindow(hLotusPal, 0)

@Outline3@<:#240,9071>Endif

@Outline3@<:#240,9071>if isiconic(hFLW)

@Outline3@<:#240,9071>    appmaximize(appname)

@Outline3@<:#240,9071>endif

@Outline3@<+@><:#240,9071>pause(002)

@Outline2@<:#240,9071>dim size(4)

@Outline2@<:#240,9071>getwindowrect(hFLW, &size)

@Outline2@<:#240,9071>movewindow(hFLW, 0, -1160, 768, 80, 1)

@Outline2@<:#240,9071>openfile()

@Outline2@<:#240,9071>EnableWindow(hIconBar,0)

@Outline2@<:#240,9071>EnableWindow(hwndpro, 0)

@Outline2@<:#240,9071>activateapp(appname)

@Outline2@<:#240,9071>'AppRestore(appname)

@Outline2@<:#240,9071>'send the menu picks

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_EDITCLEAR, "")

@Outline3@<:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_ORGCHART, "")        '***

@Outline4@<:#240,9071>pause(005)

@Outline4@<:#240,9071>defstr titletext;

@Outline4@<:#240,9071>while GetActiveWindow() != hflw

@Outline4@<:#240,9071>    GetWindowText(GetActiveWindow(), &titletext, 50)

@Outline4@<:#240,9071>    hcancel=GetDlgItem(GetActiveWindow(), 2)

@Outline4@<:#240,9071>    if titletext = DLG_CREATE

@Outline4@<:#240,9071>        hpreview=GetDlgItem(GetActiveWindow(), 10)

@Outline4@<:#240,9071>    else

@Outline4@        hpreview = GetDlgItem(GetActiveWindow(), 90)

@Outline4@<:#240,9071>    endif

@Outline4@<:#240,9071>    EnableWindow(hpreview, 0)

@Outline4@<:#240,9071>    if titletext != DLG_STYLE

@Outline4@<:#240,9071>        EnableWindow(hcancel, 0)

@Outline4@<:#240,9071>    endif

@Outline4@

@Outline4@<:#240,9071><:f200,2Times New Roman,192,192,192>'    if titletext = OrgChartGalleryDlgText or titletext = OrgChartEntryDlgText

@Outline4@<:#240,9071><:f200,2Times New Roman,192,192,192>'        EnableWindow(hcancel, 0)

@Outline4@<:S+-1><:#240,9071><:f200,2Times New Roman,192,192,192>'        if titletext = OrgChartEntryDlgText

@Outline4@<:#240,9071><:f200,2Times New Roman,192,192,192>'            EnableWindow(hpreview, 0)

@Outline4@<:#240,9071><:f200,2Times New Roman,192,192,192>'        endif

@Outline4@<:#240,9071><:f200,2Times New Roman,192,192,192>'    endif<:f><:f>

@Outline4@<:#240,9071>    pause(002)

@Outline4@<:#240,9071>wend

@Outline3@<:#240,9071>pause(005)

@Outline3@<+@><:#240,9071><+">'PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071><+">'PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071><+">'pause(005)<-">

@Outline3@<+@><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_COPY, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>pause(005)

@Outline3@<+@><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_SELECTNONE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")

@Outline3@<:#240,9071><+">'PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9071>sendkeys("<[>esc]")

@Outline2@<:#240,9071>pause(008)

@Outline2@<:#240,9071>paster:

@Outline2@<:I0,0,0,0><:S+-1><:#240,9071>if IsOKToRun(PasteSpecial) !=1

@Outline3@<+@><:#240,9071>    EnableWindow(hwndpro, 1)

@Outline3@<:#240,9071>    usercontrol(usrctrl_cantpastespecial)

@Outline3@<:#240,9071>    goto paster

@Outline3@<:#240,9071>endif

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>pastespecial(pasteformat)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>if IsOKToRun(FrameModInit) =1

@Outline2@<:#240,9071>    FrameModInit( )

@Outline2@<:#240,9071>    FrameModType(536871040 0 ""   )

@Outline2@<:#240,9071>    FrameModFinish( )

@Outline2@<:#240,9071>endif

@Outline2@<+@><:#240,9071>endit:

@Outline2@<+@><:#240,9071>activateapp("")

@Outline2@<:#240,9071>cx = size(3) - size(1)

@Outline2@<:#240,9071>cy = size(4) - size(2)

@Outline2@<:#240,9071>movewindow(hFLW, size(1), size(2), cx, cy, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>' PMM 5-20-93 lotuspal code

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>If hLotusPal <;>0

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>    ' if the lotuspal is active, enable the window

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>    EnableWindow(hLotusPal, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>Else

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>    ' if the lotuspal is not active, free the global var

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>    FreeGlobalVar(LotusPal)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>Endif

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>EnableWindow(hwndpro, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>EnableWindow(hIconBar, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>SetFocus(focusnow)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9071>end function

@Function@<:#284,9071>function h_LoadLotusApp(name, module)

@Outline2@<:#240,9071>onerror endit

@Outline2@<:#240,9071>oncancel endit

@Outline2@<:#240,9071>hwnd =  findwindow(appclass, 0)

@Outline2@<:#240,9071>if hwnd = 0

@Outline2@<:#240,9071>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)

@Outline2@<:#240,9071>    if app <<<;> ""

@Outline2@<:#240,9071>        offset1stspace=strchr(1, app, " ")

@Outline2@<:#240,9071>        app = strfield$(app, 1, " ")

@Outline2@<:#240,9071>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ

@Outline2@<:#240,9071>        'lotusappname = strfield$(app, 2, " ")

@Outline2@<:#240,9071>        if exec(app, "/q") << 32

@Outline2@<:#240,9071>            MsgBox(err_couldntrunorgchart)

@Outline2@<:#240,9071>            'MsgBox(err_cantlaunchapp)

@Outline2@<:#240,9071>            call salesmsgsmm(3)

@Outline2@<:#240,9071>            return 0

@Outline2@<:#240,9071>        endif

@Outline2@<:#240,9071>        pause(004)

@Outline2@<:#240,9071>    endif

@Outline2@<:#240,9071>    hwnd = findwindow(appclass, 0)

@Outline2@<:#240,9071>    if hwnd = 0

@Outline2@<:#240,9071>        MsgBox(err_couldntrunorgchart)

@Outline2@<:#240,9071>        call salesmsgsmm(3)

@Outline2@<:#240,9071>    endif

@Outline2@<:#240,9071>    return hwnd

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>endit:

@Outline2@<:#240,9071>return hwnd

@Outline2@<:#240,9071>end function

@Function@<:#284,9071>function openfile()

@Outline2@<:#240,9071>hflw=findwindow(appclass, 0)

@Outline2@<:#240,9071>'orgfilename="ONEORG.PRE"

@Outline2@<:#240,9071>isitopen=onmenu(FLW_WINDOWMENU, orgfilename, 0)

@Outline2@<:#240,9071>if isitopen = FILE_ALREADYOPEN

@Outline2@<:#240,9071>    exit function

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>amidir=GetAmiDirectory$()

@Outline2@<:#240,9071>ID = DDEInitiate(appname, "system")

@Outline2@<:#240,9071>'command = "<[><[>StdOpenDocument({amidir}{orgfilename})]"

@Outline2@<:#240,9071>command = strcat$("<[><[>StdOpenDocument(", amidir, orgfilename, ")]")

@Outline2@<:#240,9071>res = DDEExecute(id, command) ' comm

@Outline2@<:#240,9071>if id <;> 0

@Outline2@<:#240,9071>    DDETerminate(id)

@Outline2@<:#240,9071>endif

@Outline2@<:#240,9071>pause(005)

@Outline2@<:#240,9071>childfocus=GetFocus()

@Outline2@<:#240,9071>mdiclient=GetParent(childfocus)

@Outline2@<:#240,9071>AppSendMessage(mdiclient, WM_MDIMAXIMIZE, childfocus, "")

@Outline2@<:#240,9071>end function

@Function@<:#284,9071>function MyPostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#240,9071>hflw=findwindow(appclass, 0)

@Outline2@<:#240,9071>PostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#240,9071>pause(005)

@Outline2@<:#240,9071>while GetActiveWindow() != hflw

@Outline2@<:#240,9071>    pause(002)

@Outline2@<:#240,9071>wend

@Outline2@<:#240,9071>end function

@Function@<:#284,9071>function onmenu(menu, item, casc)

@Outline2@<:#240,9071>isthistheone=0

@Outline2@<:#240,9071>defstr menuitemnum;

@Outline2@<:#240,9071>defstr cascmenuitemnum;

@Outline2@<:#240,9071>hwnd=findwindow(appclass, 0)

@Outline2@<:#240,9071>hmenubar=GetMenu(hwnd)

@Outline2@<:#240,9071>'get handle to menu

@Outline3@<:#240,9071>nummenus=getmenuitemcount(hmenubar)

@Outline3@<:#240,9071>if nummenus << 1

@Outline3@<:#240,9071>    message ("Cannot locate the menu bar.")

@Outline3@<:#240,9071>    goto out

@Outline3@<:#240,9071>endif

@Outline3@<:#240,9071>for i = 0 to nummenus - 1

@Outline3@<:#240,9071>    GetMenuString(hmenubar, i, &isthistheone,  25, MF_BYPOSITION)

@Outline3@<:#240,9071>    menulen=len(menu)

@Outline3@<:#240,9071>    if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))

@Outline3@<:#240,9071>        menunum=i

@Outline3@<:#240,9071>    endif

@Outline3@<:#240,9071>next

@Outline3@<:#240,9071>hmenu=getsubmenu(hmenubar, menunum)

@Outline2@<:#240,9071>'get position or handle of item

@Outline3@<:#240,9071>'get position of item

@Outline4@<:#240,9071>    extra = 0

@Outline4@<:#240,9071>    menuitemnum = 0

@Outline4@<:#240,9071>    cascmenuitemnum = 0

@Outline4@<:#240,9071>    nummenuitems=getmenuitemcount(hmenu)

@Outline4@<:#240,9071>    if nummenuitems << 1

@Outline4@<:#240,9071>        message ("Cannot locate the correct menu.")

@Outline4@<:#240,9071>        goto out

@Outline4@<:#240,9071>    endif

@Outline4@<:#240,9071>    for i= 0 to (nummenuitems - 1)

@Outline4@<:#240,9071>        GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9071>        itemlen=len(item)

@Outline4@<:#240,9071>        length=len(isthistheone)

@Outline4@<:#240,9071>        if length << 1 and menuitemnum = 0

@Outline4@<:#240,9071>            extra=extra + 1

@Outline4@<:#240,9071>        endif

@Outline4@<:#240,9071>        text=ucase$(isthistheone)

@Outline4@<:#240,9071>        pattern=ucase$(item)

@Outline4@<:#240,9071>        'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))

@Outline4@<:#240,9071>        if Instr(1, Text, Pattern) != 0

@Outline4@<:#240,9071>            return FILE_ALREADYOPEN

@Outline4@<:#240,9071>            menuitemnum=i

@Outline4@<:#240,9071>            break

@Outline4@<:#240,9071>        endif

@Outline4@<:#240,9071>    next

@Outline4@<:#240,9071>    'couldn't find it

@Outline4@<:#240,9071>    return FILE_NOTOPEN

@Outline4@<:#240,9071>    menuitemnum=menuitemnum - extra

@Outline3@<:#240,9071>'get handle to casc menu

@Outline4@<:#240,9071>numcascmenus=getmenuitemcount(hmenu)

@Outline4@<:#240,9071>if numcascmenus << 1

@Outline4@<:#240,9071>    goto out

@Outline4@<:#240,9071>endif

@Outline4@<:#240,9071>for i = 0 to numcascmenus - 1

@Outline4@<:#240,9071>    GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9071>    cascmenulen=len(item)

@Outline4@<:#240,9071>    if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))

@Outline4@<:#240,9071>        cascmenunum=i

@Outline4@<:#240,9071>    endif

@Outline4@<:#240,9071>next

@Outline4@<:#240,9071>hcascmenu=getsubmenu(hmenu, cascmenunum)

@Outline3@<:#240,9071>'get position of casc item

@Outline4@<:#240,9071>    extra = 0

@Outline4@<:#240,9071>    numcascmenuitems=getmenuitemcount(hcascmenu)

@Outline4@<:#240,9071>    if numcascmenuitems << 1

@Outline4@<:#240,9071>        goto out

@Outline4@<:#240,9071>    endif

@Outline4@<:#240,9071>    for i= 0 to (numcascmenuitems - 1)

@Outline4@<:#240,9071>        GetMenuString(hcascmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9071>        cascitemlen=len(casc)

@Outline4@<:#240,9071>        length=len(isthistheone)

@Outline4@<:#240,9071>        if length << 1 and cascmenuitemnum = 0

@Outline4@<:#240,9071>            extra=extra + 1

@Outline4@<:#240,9071>        endif

@Outline4@<:#240,9071>        if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))

@Outline4@<:#240,9071>            cascmenuitemnum=i

@Outline4@<:#240,9071>            break

@Outline4@<:#240,9071>        endif

@Outline4@<:#240,9071>    next

@Outline4@<:#240,9071>    cascmenuitemnum=cascmenuitemnum - extra

@Outline2@<:#240,9071>'return numbers

@Outline3@<:#240,9071>out:

@Outline3@<:#240,9071>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",",  casc)

@Outline3@<:#240,9071>hourglass(0)

@Outline2@<:#240,9071>end function<:>

@Function@<:#284,9071>function PeekTillClear(hwnd)

@Outline2@<:#240,9071>defstr msg, result;

@Outline2@<:#240,9071>WHILE 0 != Assign(&result, PeekMessage(&msg, hwnd, 0, 0, PM_NOREMOVE))

@Outline2@<:#240,9071>    statusbarmsg("{hflw}={result}")

@Outline2@<:#240,9071>    pause(002)

@Outline2@<:#240,9071>WEND

@Outline2@<:#240,9071>message("here")

@Outline2@<:#240,9071>end function

<:#240,9071>

>

[Embedded]
00025724
>
[macsum] 6
FLWorg 0 0 14 104
h_LoadLotusApp 3246 2 5 222
openfile 4194 0 9 251
MyPostMessage 4856 4 2 271
onmenu 5200 3 24 279
PeekTillClear 8301 1 4 365
[macse]
14 FLWorg
0 1038 "temporary text" 0
0 1313 217 24 155
13
5 1
18 1
11 00000137
0 3 "î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±üB"
6 0
15
9
0 1050
13
5 1
18 5
11 00000185
6 0
15
9
2 210 1
0 800
13
0 1313 217 24 251
13
1 1
11 00000318
0 3 "ægÉDÉ}é┼é═üAé▒é╠ÿgé≡Ägéªé▄é╣é±üB" "Ami Pro Org Chart"
6 0
15
9
20 00002755
19 00002755
0 32 2
5 4
21 1 [X]
0 284 "user,GetFocus,H"
13
8 2
0 4 0
17 20
29 3 hFLW
16 h_LoadLotusApp "FLW" "FLWMAIN"
13
8 3
17 23
6 3
5 0
18 0
11 00000525
17 24
5 0
15
9
17 26
29 4 rmac
0 802
13
8 4
17 28
29 5 hwndpro
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 5
17 29
29 6 hIconBar
0 284 "user,FindWindow,HCC" "SmartIconBar" 0
13
8 6
17 31
0 271 "lsphwndpal" 1
17 32
29 7 hLotusPal
0 265 "lsphwndpal"
13
8 7
17 33
6 7
5 0
18 3
11 00000873
17 34
0 284 "user,EnableWindow,HHH" "{7}" 0
17 36
0 284 "user,IsIconic,HH" "{3}"
13
11 00000950
17 37
0 1029 "FLW"
17 39
0 274 002
17 40
5 4
29 8 size
21 8 [X]
17 41
0 284 "user,GetWindowRect,HHN" "{3}" &8
17 42
0 284 "User,MoveWindow,HHHHHHA" "{3}" 0 -1160 768 80 1
17 43
16 openfile
17 44
0 284 "user,EnableWindow,HHH" "{6}" 0
17 45
0 284 "user,EnableWindow,HHH" "{5}" 0
17 46
0 38 "FLW"
17 49
0 284 "User,PostMessage,HHHHJ" "{3}" 273 228 ""
17 50
0 284 "User,PostMessage,HHHHJ" "{3}" 273 165 ""
17 51
0 284 "User,PostMessage,HHHHJ" "{3}" 273 145 ""
17 52
0 284 "User,PostMessage,HHHHJ" "{3}" 273 5202 ""
17 53
0 274 005
17 54
29 9 titletext
17 55
0 284 "user,GetActiveWindow,H"
13
6 3
18 1
11 00002126
17 56
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &9 50
17 57
29 10 hcancel
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 2
13
8 10
17 58
6 9
7 "ægÉDÉ}é╠ì∞ɼ"
18 0
11 00001886
17 59
29 11 hpreview
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 10
13
8 11
10 00001952
17 61
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 90
13
8 11
17 63
0 284 "user,EnableWindow,HHH" "{11}" 0
17 64
6 9
7 "ægÉDÉ}é╠╜└▓┘"
18 1
11 00002095
17 65
0 284 "user,EnableWindow,HHH" "{10}" 0
17 74
0 274 002
10 00001509
17 76
0 274 005
17 80
0 284 "User,PostMessage,HHHHJ" "{3}" 273 165 ""
17 81
0 284 "User,PostMessage,HHHHJ" "{3}" 273 142 ""
17 82
0 274 005
17 83
0 284 "User,PostMessage,HHHHJ" "{3}" 273 166 ""
17 84
0 284 "User,PostMessage,HHHHJ" "{3}" 273 228 ""
17 86
0 36 "[27]"
17 87
0 274 008
17 89
0 1313 217 24 588
13
5 1
18 1
11 00002609
17 90
0 284 "user,EnableWindow,HHH" "{5}" 1
17 91
0 7 "ô\éΦòté»é┼é½é▄é╣é±üBò╢Åæé╠û{ò╢é≡╕╪»╕é╡é─é¡é╛é│éóüB"
17 92
10 00002424
17 94
2 588 1 "Windows ╥└"
17 95
0 1313 217 24 421
13
5 1
18 0
11 00002755
17 96
2 421 1
17 97
2 417 1 536871040 0 ""
17 98
2 420 1
17 101
0 38 ""
17 102
29 12 cx
5 3
22 8
5 1
22 8
3 1
8 12
17 103
29 13 cy
5 4
22 8
5 2
22 8
3 1
8 13
17 104
5 1
22 8
5 2
22 8
0 284 "User,MoveWindow,HHHHHHA" "{3}" [X] [X] "{12}" "{13}" 1
17 106
6 7
5 0
18 3
11 00003064
17 108
0 284 "user,EnableWindow,HHH" "{7}" 1
10 00003092
17 111
0 266 "lsphwndpal"
17 114
0 284 "user,EnableWindow,HHH" "{5}" 1
17 115
0 284 "user,EnableWindow,HHH" "{6}" 1
17 116
0 284 "user,SetFocus,HH" "{2}"
6 0
15
17 117
9
14 h_LoadLotusApp
29 0 name
29 1 module
29 2 h_LoadLotusApp
17 1
20 00000910
17 2
19 00000910
17 3
29 3 hwnd
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
17 4
6 3
5 0
18 0
11 00000910
17 5
29 4 app
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
17 6
6 4
7 ""
18 1
11 00000679
17 7
29 5 offset1stspace
0 13 1 "{4}" " "
13
8 5
17 8
0 20 "{4}" 1 " "
13
8 4
17 9
29 6 lotusappname
0 14 "{4}"
13
0 15 "{4}" "{5}" [X]
13
8 6
17 11
0 22 "{4}" "/q"
13
5 32
18 5
11 00000661
17 12
0 3 "╠╪░╫▌╜é≡ïNô«é┼é½é╚éóé╜é▀üAægÉDÉ}é≡ì∞ɼé┼é½é▄é╣é±üB" "Ami Pro Org Chart"
17 14
16 lotuspal.smm!salesmsg 3
17 15
5 0
15
9
17 17
0 274 004
17 19
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
17 20
6 3
5 0
18 0
11 00000891
17 21
0 3 "╠╪░╫▌╜é≡ïNô«é┼é½é╚éóé╜é▀üAægÉDÉ}é≡ì∞ɼé┼é½é▄é╣é±üB" "Ami Pro Org Chart"
17 22
16 lotuspal.smm!salesmsg 3
17 24
6 3
15
9
17 27
6 3
15
9
6 2
15
17 28
9
14 openfile
29 0 openfile
17 1
29 1 hflw
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 1
17 3
29 2 isitopen
16 onmenu "│▓▌─▐│(&W)" "ONEORG.PRE" 0
13
8 2
17 4
6 2
5 1
18 0
11 00000210
6 0
15
9
17 7
29 3 amidir
0 798
13
8 3
17 8
29 4 ID
0 8 "FLW" "system"
13
8 4
17 10
29 5 command
0 16 "[[StdOpenDocument(" "{3}" "ONEORG.PRE" ")]"
13
8 5
17 11
29 6 res
0 11 "{4}" "{5}"
13
8 6
17 12
6 4
5 0
18 3
11 00000468
17 13
0 9 "{4}"
17 15
0 274 005
17 16
29 7 childfocus
0 284 "user,GetFocus,H"
13
8 7
17 17
29 8 mdiclient
0 284 "user,GetParent,HH" "{7}"
13
8 8
17 18
0 1036 "{8}" 549 "{7}" ""
6 0
15
17 19
9
14 MyPostMessage
29 0 hwnd
29 1 msg
29 2 wparam
29 3 lparam
29 4 MyPostMessage
17 1
29 5 hflw
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 5
17 2
0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
17 3
0 274 005
17 4
0 284 "user,GetActiveWindow,H"
13
6 5
18 1
11 00000326
17 5
0 274 002
10 00000230
6 4
15
17 7
9
14 onmenu
29 0 menu
29 1 item
29 2 casc
29 3 onmenu
17 1
29 4 isthistheone
5 0
8 4
17 2
29 5 menuitemnum
17 3
29 6 cascmenuitemnum
17 4
29 7 hwnd
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
17 5
29 8 hmenubar
0 284 "user,GetMenu,HH" "{7}"
13
8 8
17 7
29 9 nummenus
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
17 8
6 9
5 1
18 5
11 00000437
17 9
0 3 "Cannot locate the menu bar."
17 10
10 00003001
29 10 i
5 0
8 10
17 12
6 9
5 1
3 1
6 10
18 2
12 00000552
10 00000811
5 1
6 10
3 0
8 10
10 00000457
17 13
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
17 14
29 11 menulen
0 14 "{0}"
13
8 11
17 15
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000798
17 16
29 12 menunum
6 10
8 12
10 00000517
17 19
29 13 hmenu
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
17 22
29 14 extra
5 0
8 14
17 23
5 0
8 5
17 24
5 0
8 6
17 25
29 15 nummenuitems
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
17 26
6 15
5 1
18 5
11 00001129
17 27
0 3 "Cannot locate the correct menu."
17 28
10 00003001
5 0
8 10
17 30
6 15
5 1
3 1
6 10
18 2
12 00001236
10 00001690
5 1
6 10
3 0
8 10
10 00001140
17 31
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
17 32
29 16 itemlen
0 14 "{1}"
13
8 16
17 33
29 17 length
0 14 "{4}"
13
8 17
17 34
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001477
17 35
6 14
5 1
3 0
8 14
17 37
29 18 text
0 18 "{4}"
13
8 18
17 38
29 19 pattern
0 18 "{1}"
13
8 19
17 40
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001677
17 41
5 1
15
9
17 42
6 10
8 5
17 43
10 00001690
10 00001201
17 47
5 -1
15
9
17 48
6 5
6 14
3 1
8 5
17 50
29 20 numcascmenus
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
17 51
6 20
5 1
18 5
11 00001873
17 52
10 00003001
5 0
8 10
17 54
6 20
5 1
3 1
6 10
18 2
12 00001980
10 00002248
5 1
6 10
3 0
8 10
10 00001884
17 55
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
17 56
29 21 cascmenulen
0 14 "{1}"
13
8 21
17 57
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00002235
17 58
29 22 cascmenunum
6 10
8 22
10 00001945
17 61
29 23 hcascmenu
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
17 63
5 0
8 14
17 64
29 24 numcascmenuitems
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
17 65
6 24
5 1
18 5
11 00002482
17 66
10 00003001
5 0
8 10
17 68
6 24
5 1
3 1
6 10
18 2
12 00002589
10 00002973
5 1
6 10
3 0
8 10
10 00002493
17 69
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
17 70
29 25 cascitemlen
0 14 "{2}"
13
8 25
17 71
0 14 "{4}"
13
8 17
17 72
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002820
17 73
6 14
5 1
3 0
8 14
17 75
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00002960
17 76
6 10
8 6
17 77
10 00002973
10 00002554
17 80
6 6
6 14
3 1
8 6
17 83
29 26 getdist
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
17 84
0 296 0
6 3
15
17 85
9
14 PeekTillClear
29 0 hwnd
29 1 PeekTillClear
17 1
29 2 msg
29 3 result
17 2
5 0
0 284 "user,PeekMessage,ANHHHH" &2 "{0}" 0 0 0
13
0 805 &3 [X]
13
18 1
11 00000242
17 3
29 4 hflw
0 789 "{4}={3}"
17 4
0 274 002
10 00000078
17 6
0 3 "here"
6 1
15
17 7
9
00025749